home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Stacks / Hyper Utilities / Text Utilities / LetterWriter / card_4133.txt < prev    next >
Encoding:
Text File  |  1988-04-09  |  3.0 KB  |  159 lines
  1. -- card: 4133 from stack: in
  2. -- bmap block id: 8483
  3. -- flags: 4000
  4. -- background id: 3667
  5. -- name: Setup
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global WP
  9.   if WP is empty then
  10.     get card field "DA"
  11.     if it is not empty then
  12.       doMenu it
  13.     end if
  14.   end if
  15. end openCard
  16. on closeCard
  17.   global WP , CL , BC
  18.   put card field "WP" into WP
  19.   put card field "CL" into CL
  20.   put card field "BC" into BC
  21. end closeCard
  22.  
  23.  
  24. -- part 1 (button)
  25. -- low flags: 00
  26. -- high flags: 2000
  27. -- rect: left=6 top=181 right=226 bottom=49
  28. -- title width / last selected line: 0
  29. -- icon id / first selected line: 2162 / 2162
  30. -- text alignment: 1
  31. -- font id: 0
  32. -- text size: 12
  33. -- style flags: 0
  34. -- line height: 16
  35. -- part name: Back
  36. ----- HyperTalk script -----
  37. on mouseUp
  38.   visual checkerboard to gray
  39.   visual checkerboard
  40.   go to card "Title"
  41. end mouseUp
  42.  
  43.  
  44.  
  45. -- part 2 (field)
  46. -- low flags: 00
  47. -- high flags: 0004
  48. -- rect: left=112 top=97 right=113 bottom=441
  49. -- title width / last selected line: 0
  50. -- icon id / first selected line: 0 / 0
  51. -- text alignment: 0
  52. -- font id: 3
  53. -- text size: 9
  54. -- style flags: 0
  55. -- line height: 12
  56. -- part name: WP
  57. ----- HyperTalk script -----
  58. on exitField
  59.   global WP
  60.   put contents of me into WP
  61. end exitField
  62.  
  63.  
  64.  
  65. -- part 3 (field)
  66. -- low flags: 00
  67. -- high flags: 0004
  68. -- rect: left=112 top=158 right=175 bottom=387
  69. -- title width / last selected line: 0
  70. -- icon id / first selected line: 0 / 0
  71. -- text alignment: 0
  72. -- font id: 3
  73. -- text size: 9
  74. -- style flags: 0
  75. -- line height: 12
  76. -- part name: DA
  77. ----- HyperTalk script -----
  78. on exitField
  79.   global WP
  80.   put contents of me into WP
  81. end exitField
  82.  
  83.  
  84.  
  85. -- part 5 (field)
  86. -- low flags: 00
  87. -- high flags: 0004
  88. -- rect: left=112 top=235 right=275 bottom=219
  89. -- title width / last selected line: 0
  90. -- icon id / first selected line: 0 / 0
  91. -- text alignment: 0
  92. -- font id: 3
  93. -- text size: 9
  94. -- style flags: 0
  95. -- line height: 12
  96. -- part name: CL
  97. ----- HyperTalk script -----
  98. on exitField
  99.   global WP
  100.   put contents of me into WP
  101. end exitField
  102.  
  103.  
  104.  
  105. -- part 6 (field)
  106. -- low flags: 00
  107. -- high flags: 0004
  108. -- rect: left=226 top=235 right=275 bottom=331
  109. -- title width / last selected line: 0
  110. -- icon id / first selected line: 0 / 0
  111. -- text alignment: 0
  112. -- font id: 3
  113. -- text size: 9
  114. -- style flags: 0
  115. -- line height: 12
  116. -- part name: BC
  117. ----- HyperTalk script -----
  118. on exitField
  119.   global WP
  120.   put contents of me into WP
  121. end exitField
  122.  
  123.  
  124.  
  125. -- part 7 (button)
  126. -- low flags: 00
  127. -- high flags: 2000
  128. -- rect: left=6 top=233 right=277 bottom=49
  129. -- title width / last selected line: 0
  130. -- icon id / first selected line: 32462 / 32462
  131. -- text alignment: 1
  132. -- font id: 0
  133. -- text size: 12
  134. -- style flags: 0
  135. -- line height: 16
  136. -- part name: Help
  137. ----- HyperTalk script -----
  138. on mouseUp
  139.   push card
  140.   visual venetian blinds to gray
  141.   visual venetian blinds
  142.   go to card "SHelp"
  143. end mouseUp
  144.  
  145.  
  146.  
  147. -- part contents for card part 2
  148. ----- text -----
  149. Nova30:WP:Word:Microsoft Word
  150.  
  151. -- part contents for card part 5
  152. ----- text -----
  153. Best regards,
  154.  
  155. -- part contents for card part 6
  156. ----- text -----
  157. Sincerely,
  158.  
  159. Your Name